00100		SUBROUTINE FILLMS(L,IDAT,RJB,CENTR,RJF,RJG)
00200		DIMENSION X(200),Y(200),NX(200),IDAT(1)
00220		COMMON/PLTR/IPLT,RHT,DIS/LL/LL/STF/RR(8),RSTJC
00230		DX=DIS
00240		RX=RHT
00270		D=RSTJC*RJF
00280		R=RSTJC*RJG
00600	1	KK=0
00700		DO 205 J=1,L
00800		CALL UNPACK(M,N,IDAT(J))
00900		KK=KK+1
01000		NX(KK)=0
01100		IF(LL.EQ.3)NX(KK)=3
01200		X(KK)=(RJB+D*M)*DIS
01300	205	Y(KK)=(CENTR+R*N)*RHT
01400		NX(1)=KK
01410		DIS=1.0
01420		RHT=DIS
01500		M=6
01600		IF(IPLT)M=1
01700	2	CALL FILLER(X,Y,NX,M)
01710		DIS=DX
01720		RHT=RX
01800		END